(elp-unload-hook): Remove function and variable.

(elp-unload-function): New-style unload function,
adapted from `elp-unload-hook'.

diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el
index ade2a23608d3761348af050b8e9a034e900c2d3b..71231a86df9c40096f41df979d95edcc2532112d 100644 (file)
--- a/lisp/emacs-lisp/elp.el
+++ b/lisp/emacs-lisp/elp.el
@@ -626,9 +626,11 @@ displayed."
     (and elp-reset-after-results
         (elp-reset-all))))
 
-(defun elp-unload-hook ()
-  (elp-restore-all))
-(add-hook 'elp-unload-hook 'elp-unload-hook)
+(defun elp-unload-function ()
+  "Unload the Emacs Lisp Profiler."
+  (elp-restore-all)
+  ;; continue standard unloading
+  nil)
 \f
 (provide 'elp)